object FCotacaoPorFornecedor: TFCotacaoPorFornecedor
  Left = 272
  Top = 175
  Width = 860
  Height = 550
  Caption = 'Cota'#231#227'o por Fornecedor'
  Color = clBtnFace
  Constraints.MaxHeight = 550
  Constraints.MaxWidth = 860
  Constraints.MinHeight = 550
  Constraints.MinWidth = 860
  DefaultMonitor = dmMainForm
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object pcCadastro: TPageControl
    Left = 0
    Top = 0
    Width = 844
    Height = 512
    ActivePage = tsCadastro
    Align = alClient
    TabIndex = 1
    TabOrder = 0
    object tbPesquisa: TTabSheet
      Caption = 'Pesquisa'
      object pnPesquisaPadrao: TPanel
        Left = 0
        Top = 0
        Width = 836
        Height = 57
        Align = alTop
        TabOrder = 0
        object lbConteudoPesquisa: TLabel
          Left = 248
          Top = 4
          Width = 131
          Height = 16
          Caption = 'Conte'#250'do da Pesquisa'
        end
        object lbCamposParaPesquisa: TLabel
          Left = 8
          Top = 4
          Width = 128
          Height = 16
          Caption = 'Campo para Pesquisa'
        end
        object edPesquisa: TEdit
          Tag = 77
          Left = 248
          Top = 24
          Width = 289
          Height = 24
          CharCase = ecUpperCase
          TabOrder = 1
          OnChange = edPesquisaChange
        end
        object stCampoBuscado: TStaticText
          Left = 408
          Top = 4
          Width = 4
          Height = 4
          TabOrder = 2
        end
        object dblCamposPesquisa: TDBLookupComboBox
          Tag = 77
          Left = 8
          Top = 24
          Width = 233
          Height = 24
          KeyField = 'NOME'
          ListField = 'DESCRICAO'
          ListSource = dsCamposPesquisa
          TabOrder = 0
          OnKeyDown = dblCamposPesquisaKeyDown
        end
      end
      object dbgPesquisaPadra: TDBGrid
        Tag = 77
        Left = 0
        Top = 57
        Width = 836
        Height = 367
        Align = alClient
        DataSource = dsSolicitacao
        Options = [dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = PopupMenu1
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        OnDblClick = dbgPesquisaPadraDblClick
        OnTitleClick = dbgPesquisaPadraTitleClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'SOL_CODIGO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'COT_FORNECEDOR_DESC'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SOL_SOLICITANTE_DESC'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SOL_MOTIVO_DESC'
            Width = 250
            Visible = True
          end>
      end
      object pnPesquisa: TPanel
        Left = 0
        Top = 424
        Width = 836
        Height = 57
        Align = alBottom
        TabOrder = 2
      end
    end
    object tsCadastro: TTabSheet
      Caption = 'Cadastro'
      ImageIndex = 1
      OnShow = tsCadastroShow
      object panel3: TPanel
        Left = 0
        Top = 422
        Width = 836
        Height = 59
        Align = alBottom
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object LUsuario: TLabel
          Left = 4
          Top = 37
          Width = 0
          Height = 13
          AutoSize = False
          Caption = '      '
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object LDataMod: TLabel
          Left = 4
          Top = 51
          Width = 0
          Height = 13
          AutoSize = False
          Caption = '                             '
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object LNRegistros: TLabel
          Left = 121
          Top = 37
          Width = 0
          Height = 13
          AutoSize = False
          Caption = '                             '
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label5: TLabel
          Left = 8
          Top = 8
          Width = 198
          Height = 16
          Caption = 'Pressione F9 para indicar Favorito'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentFont = False
        end
        object Label6: TLabel
          Left = 8
          Top = 24
          Width = 258
          Height = 16
          Caption = 'Pressione Ctrl + F Para localizar um produto'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsItalic]
          ParentFont = False
        end
        object BtnConsuta: TBitBtn
          Left = 11
          Top = 7
          Width = 0
          Height = 25
          Caption = 'C&onsulta'
          TabOrder = 2
          Glyph.Data = {
            42010000424D4201000000000000760000002800000011000000110000000100
            040000000000CC00000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            77777000000070000000007777777000000070FFFFFFF07777700000000070F7
            7777F07777000000000070F77777F07770007000000070F77780008700077000
            000070F7700FFF0000777000000070F708FFFF0807777000000070F80E000F07
            08777000000070F0EFEFEF0770777000000070F0F0000F077077700000007000
            EFEFFF0770777000000077780000000708777000000077770077777807777000
            0000777770077700777770000000777777800087777770000000777777777777
            777770000000}
        end
        object BtnSalvar: TBitBtn
          Tag = 1
          Left = 635
          Top = 5
          Width = 100
          Height = 25
          Caption = '&Salvar'
          TabOrder = 0
          OnClick = BtnSalvarClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
            7700333333337777777733333333008088003333333377F73377333333330088
            88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
            000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
            FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
            99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
            99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
            99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
            93337FFFF7737777733300000033333333337777773333333333}
          NumGlyphs = 2
        end
        object BtnCancelar: TBitBtn
          Tag = 1
          Left = 738
          Top = 5
          Width = 100
          Height = 25
          Caption = '&Cancelar'
          TabOrder = 1
          OnClick = BtnCancelarClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
            33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
            993337777F777F3377F3393999707333993337F77737333337FF993399933333
            399377F3777FF333377F993339903333399377F33737FF33377F993333707333
            399377F333377FF3377F993333101933399377F333777FFF377F993333000993
            399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
            99333773FF777F777733339993707339933333773FF7FFF77333333999999999
            3333333777333777333333333999993333333333377777333333}
          NumGlyphs = 2
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 35
        Width = 836
        Height = 387
        Align = alClient
        TabOrder = 1
        object Label1: TLabel
          Left = 14
          Top = 16
          Width = 91
          Height = 16
          Caption = 'Solicita'#231#227'o (F8)'
        end
        object Fornecedor: TLabel
          Left = 14
          Top = 56
          Width = 92
          Height = 16
          Caption = 'Fornecedor (F8)'
        end
        object DBText1: TDBText
          Left = 216
          Top = 32
          Width = 393
          Height = 16
          DataField = 'SOL_SOLICITANTE_DESC'
          DataSource = dsSolicitacao
        end
        object Label3: TLabel
          Left = 216
          Top = 16
          Width = 110
          Height = 16
          Caption = 'Solicitante / Motivo'
        end
        object DBText2: TDBText
          Left = 216
          Top = 48
          Width = 185
          Height = 16
          DataField = 'SOL_MOTIVO_DESC'
          DataSource = dsSolicitacao
        end
        object Label2: TLabel
          Left = 120
          Top = 16
          Width = 27
          Height = 16
          Caption = 'Data'
        end
        object DBText4: TDBText
          Left = 120
          Top = 32
          Width = 67
          Height = 17
          DataField = 'SOL_DATA'
          DataSource = dsSolicitacao
        end
        object Label4: TLabel
          Left = 430
          Top = 56
          Width = 45
          Height = 16
          Caption = 'Contato'
        end
        object Label8: TLabel
          Left = 771
          Top = 16
          Width = 62
          Height = 16
          Alignment = taRightJustify
          Caption = 'QTD. Itens'
        end
        object lbItens: TLabel
          Left = 771
          Top = 32
          Width = 62
          Height = 16
          Alignment = taRightJustify
          AutoSize = False
        end
        object edSolicitacao: TEdit
          Left = 14
          Top = 32
          Width = 92
          Height = 22
          Ctl3D = False
          MaxLength = 8
          ParentCtl3D = False
          TabOrder = 0
          OnExit = edSolicitacaoExit
          OnKeyDown = edSolicitacaoKeyDown
        end
        object dblFornecedor: TDBLookupComboBox
          Left = 14
          Top = 72
          Width = 411
          Height = 22
          Ctl3D = False
          KeyField = 'FORN_CODIGO'
          ListField = 'FORN_RAZAO'
          ListSource = dsFornecedor
          ParentCtl3D = False
          TabOrder = 1
          OnExit = edSolicitacaoExit
          OnKeyDown = dblFornecedorKeyDown
        end
        object rgFrete: TRadioGroup
          Left = 582
          Top = 52
          Width = 106
          Height = 42
          Caption = '  Frete  '
          Columns = 2
          Ctl3D = False
          Items.Strings = (
            'CIF'
            'FOB')
          ParentCtl3D = False
          TabOrder = 3
          OnExit = edSolicitacaoExit
        end
        object dbgItens: TDBGrid
          Left = 11
          Top = 104
          Width = 825
          Height = 273
          Ctl3D = False
          DataSource = dsCotacao
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ParentCtl3D = False
          PopupMenu = PopupMenu2
          TabOrder = 4
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          OnDrawColumnCell = dbgItensDrawColumnCell
          OnEnter = dbgItensEnter
          OnExit = dbgItensExit
          OnKeyDown = dbgItensKeyDown
          OnKeyPress = dbgItensKeyPress
          Columns = <
            item
              Expanded = False
              FieldName = 'COD_PRODCODIGO'
              Title.Alignment = taCenter
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COD_PROD_DESC'
              Title.Caption = 'Descri'#231#227'o'
              Width = 290
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COT_PRODUNIDADE'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COT_PRODMARCA'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COT_QTDSOLICITACAO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COD_PROD_VALORUNIT'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COT_VALORICMS'
              Title.Alignment = taRightJustify
              Title.Caption = 'Vr. Final'
              Width = 63
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'COT_ESCOLHIDO'
              Visible = True
            end>
        end
        object GroupBox1: TGroupBox
          Left = 696
          Top = 52
          Width = 141
          Height = 42
          Caption = '  Diferen'#231'a Al'#237'quota  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 5
          object DBText3: TDBText
            Left = 56
            Top = 20
            Width = 37
            Height = 16
            Alignment = taRightJustify
            DataField = 'COT_PERICMS'
            DataSource = dsCotacao
          end
          object lbUFForn: TLabel
            Left = 32
            Top = 20
            Width = 4
            Height = 16
          end
          object Label7: TLabel
            Left = 96
            Top = 20
            Width = 12
            Height = 16
            Caption = '%'
          end
        end
        object edContato: TEdit
          Left = 432
          Top = 72
          Width = 145
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 2
          OnEnter = edContatoEnter
        end
      end
      object panel2: TPanel
        Left = 0
        Top = 0
        Width = 836
        Height = 35
        Align = alTop
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object SBAtualiza: TSpeedButton
          Left = 816
          Top = 5
          Width = 22
          Height = 25
          Hint = 'Atualiza'
          Caption = 'UP'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = SBAtualizaClick
        end
        object BtnIncluir: TBitBtn
          Left = 4
          Top = 5
          Width = 100
          Height = 25
          Caption = '&Incluir'
          TabOrder = 0
          OnClick = BtnIncluirClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
            333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
            0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
            07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
            07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
            0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
            33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
            B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
            3BB33773333773333773B333333B3333333B7333333733333337}
          NumGlyphs = 2
        end
        object BtnEditar: TBitBtn
          Left = 106
          Top = 5
          Width = 100
          Height = 25
          Caption = '&Editar'
          TabOrder = 1
          OnClick = BtnEditarClick
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
            000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
            00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
            F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
            0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
            FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
            FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
            0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
            00333377737FFFFF773333303300000003333337337777777333}
          NumGlyphs = 2
        end
        object BtnFechar: TBitBtn
          Left = 673
          Top = 5
          Width = 0
          Height = 25
          Caption = '&Fechar'
          TabOrder = 4
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
            03333377777777777F333301111111110333337F333333337F33330111111111
            0333337F333333337F333301111111110333337F333333337F33330111111111
            0333337F333333337F333301111111110333337F333333337F33330111111111
            0333337F3333333F7F333301111111B10333337F333333737F33330111111111
            0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
            0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
            0333337F377777337F333301111111110333337F333333337F33330111111111
            0333337FFFFFFFFF7F3333000000000003333377777777777333}
          NumGlyphs = 2
        end
        object BtnExcluir: TBitBtn
          Left = 208
          Top = 5
          Width = 100
          Height = 25
          Caption = '&Excluir'
          TabOrder = 2
          OnClick = BtnExcluirClick
          Glyph.Data = {
            B2050000424DB205000000000000360400002800000012000000130000000100
            0800000000007C010000C30E0000C30E00000001000000000000000000007B00
            0000BD000000FF0000007B7B000000FF0000FFFF000000315A0008427300084A
            730000007B007B007B00084A7B0008527B0021527B00007B7B007B7B7B00004A
            840008528400105284002963840008528C00085A8C00185A8C0018638C002963
            8C0008529400185A9400296B9400316B94002973940031739400085A9C001863
            9C0018739C0029739C0031739C0031849C00005AA5002173A5003973A500297B
            A500186BAD00106BB500317BB5002984B5004A8CB500086BBD000073BD001073
            BD001873BD00217BBD004284BD00318CBD004A8CBD005294BD005A9CBD00BDBD
            BD001073C600007BC600217BC600428CC6004A8CC6005A9CC6000084CE000884
            CE00398CCE005A9CCE00639CCE001884D6002184D600088CD600108CD6004294
            D600399CD6004A9CD600529CD6005A9CD6005AA5D60063ADD6001884DE002184
            DE00188CDE001094DE001894DE003194DE00299CDE004AA5DE005AA5DE004AB5
            DE00189CE700219CE700429CE7005AA5E7005AADE70063ADE7006BB5E70021A5
            EF0029A5EF0031A5EF0063B5EF006BBDEF0029ADF70031ADF7006BBDF7000000
            FF00FF00FF0031B5FF0039B5FF0042B5FF0039BDFF0042BDFF0042C6FF004AC6
            FF006BC6FF004ACEFF0052CEFF0052D6FF005ADEFF0063E7FF0000FFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00393939393939
            3939393939393939393939690000396939393939393939393939393939396939
            0000396969393910101010101010101010693939000039696969000000000000
            0000000069693939000039396969007879797978797979696939393900003939
            3969697903030303030379691039393900003939396969697978797979786969
            1039393900003939393969696903030369696900103939390000393939390069
            6969797869697900103939390000393939390079036969696903790010393939
            0000393939390079796969696978790010393939000039393939007903696969
            6900000010393939000039393939007869697900696979001039393900003939
            3939006969697900696969693939393900003939396969697978790079003969
            6939393900003969696969000000000000393939696939390000396969693939
            3939393939393939393969390000393939393939393939393939393939393969
            00003939393939393939393939393939393939390000}
        end
        object DBNavigator1: TDBNavigator
          Left = 703
          Top = 5
          Width = 112
          Height = 25
          DataSource = dsSolicitacao
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          Flat = True
          ParentShowHint = False
          ShowHint = False
          TabOrder = 3
        end
        object streg: TStaticText
          Left = 579
          Top = 9
          Width = 117
          Height = 20
          Alignment = taRightJustify
          Caption = ' Reg: 10000/10000 '
          TabOrder = 5
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Usu'#225'rio'
      ImageIndex = 2
      object gbInclusao: TGroupBox
        Left = 16
        Top = 152
        Width = 249
        Height = 129
        Caption = '  Inclus'#227'o  '
        TabOrder = 0
        object lbInclusaoUsuario: TLabel
          Left = 16
          Top = 32
          Width = 84
          Height = 16
          Caption = 'Usu'#225'rio:  LINK'
        end
        object lbInclusaoData: TLabel
          Left = 16
          Top = 56
          Width = 103
          Height = 16
          Caption = 'Data:  18/03/2008'
        end
        object lbInclusaoHora: TLabel
          Left = 16
          Top = 80
          Width = 71
          Height = 16
          Caption = 'Hora:  14:00'
        end
      end
      object gbAuteracao: TGroupBox
        Left = 296
        Top = 152
        Width = 249
        Height = 129
        Caption = '  Altera'#231#227'o  '
        TabOrder = 1
        object lbAuteracaoHora: TLabel
          Left = 16
          Top = 80
          Width = 71
          Height = 16
          Caption = 'Hora:  14:00'
        end
        object lbAuteracaoData: TLabel
          Left = 16
          Top = 56
          Width = 103
          Height = 16
          Caption = 'Data:  18/03/2008'
        end
        object lbAuteracaoUsuario: TLabel
          Left = 16
          Top = 32
          Width = 84
          Height = 16
          Caption = 'Usu'#225'rio:  LINK'
        end
      end
      object gbExclusao: TGroupBox
        Left = 576
        Top = 152
        Width = 249
        Height = 129
        Caption = '  Exclus'#227'o  '
        TabOrder = 2
        object lbExclusaoHora: TLabel
          Left = 16
          Top = 80
          Width = 71
          Height = 16
          Caption = 'Hora:  14:00'
        end
        object lbExclusaoData: TLabel
          Left = 16
          Top = 56
          Width = 103
          Height = 16
          Caption = 'Data:  18/03/2008'
        end
        object lbExclusaoUsuario: TLabel
          Left = 16
          Top = 32
          Width = 84
          Height = 16
          Caption = 'Usu'#225'rio:  LINK'
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Ajuda'
      ImageIndex = 3
      object LBProcessos: TLabel
        Left = 120
        Top = 13
        Width = 65
        Height = 16
        AutoSize = False
        Caption = 'Processos'
      end
      object Button1: TButton
        Left = 8
        Top = 8
        Width = 100
        Height = 25
        Caption = 'Incluir Arquivo'
        TabOrder = 0
      end
      object reAjuda: TRichEdit
        Left = 8
        Top = 40
        Width = 825
        Height = 441
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
  end
  object cdsCotacao: TClientDataSet
    Active = True
    Aggregates = <>
    Filtered = True
    IndexFieldNames = 'COD_PRODCODIGO;COT_ESCOLHIDO;COD_PROD_VALORUNIT'
    PacketRecords = 5000
    Params = <>
    ProviderName = 'dspCotacao'
    BeforePost = cdsCotacaoBeforePost
    Left = 144
    Top = 296
    object cdsCotacaoCOT_SOLICITACAO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'Solicita'#231#227'o'
      FieldName = 'COT_SOLICITACAO'
    end
    object cdsCotacaoCOT_FORNECEDOR: TIntegerField
      FieldName = 'COT_FORNECEDOR'
    end
    object cdsCotacaoCOT_ESCOLHIDO: TStringField
      DisplayLabel = '  '
      DisplayWidth = 2
      FieldName = 'COT_ESCOLHIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCotacaoCOD_PRODCODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'COD_PRODCODIGO'
    end
    object cdsCotacaoCOT_FORNECEDOR_DESC: TStringField
      DisplayWidth = 40
      FieldName = 'COT_FORNECEDOR_DESC'
      Size = 40
    end
    object cdsCotacaoCOD_PROD_DESC: TStringField
      DisplayLabel = 'Descri'#231#227'o de Sa'#237'da'
      DisplayWidth = 54
      FieldName = 'COD_PROD_DESC'
      Size = 60
    end
    object cdsCotacaoCOD_DATA: TDateTimeField
      FieldName = 'COD_DATA'
    end
    object cdsCotacaoCOT_FRETE: TStringField
      FieldName = 'COT_FRETE'
      FixedChar = True
      Size = 3
    end
    object cdsCotacaoCOD_PROD_VALORUNIT: TFloatField
      DisplayLabel = 'Vr. Unit'#225'rio'
      FieldName = 'COD_PROD_VALORUNIT'
      OnChange = cdsCotacaoCOD_PROD_VALORUNITChange
      DisplayFormat = '#,##0.0000'
    end
    object cdsCotacaoUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCotacaoUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCotacaoUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCotacaoDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCotacaoDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCotacaoDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCotacaoEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCotacaoCOT_PRODUNIDADE: TStringField
      Alignment = taCenter
      DisplayLabel = 'Unidade'
      DisplayWidth = 7
      FieldName = 'COT_PRODUNIDADE'
      Size = 10
    end
    object cdsCotacaoCOT_PRODMARCA: TStringField
      DisplayLabel = 'Marca'
      FieldName = 'COT_PRODMARCA'
    end
    object cdsCotacaoCOT_QTDSOLICITACAO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'Quant.'
      DisplayWidth = 4
      FieldName = 'COT_QTDSOLICITACAO'
    end
    object cdsCotacaoCOT_PERICMS: TFloatField
      DisplayLabel = 'ICMS'
      FieldName = 'COT_PERICMS'
    end
    object cdsCotacaoCOT_VALORICMS: TFloatField
      DisplayLabel = 'Vr. ICMS'
      FieldName = 'COT_VALORICMS'
      DisplayFormat = '#,##0.0000'
    end
    object cdsCotacaoCOT_CONTATO: TStringField
      FieldName = 'COT_CONTATO'
    end
  end
  object dsCotacao: TDataSource
    DataSet = cdsCotacao
    OnDataChange = dsCotacaoDataChange
    Left = 144
    Top = 176
  end
  object dspCotacao: TDataSetProvider
    DataSet = QCotacao
    Constraints = True
    Left = 144
    Top = 256
  end
  object QCotacao: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT'
      '  *'
      'FROM'
      '  COTACAO_FORN'
      'WHERE COD_DATA >= CURRENT_TIMESTAMP -30'
      'ORDER BY'
      '  COT_SOLICITACAO')
    Left = 144
    Top = 216
  end
  object dsSolicitacao: TDataSource
    AutoEdit = False
    DataSet = cdsSolicitacao
    OnDataChange = dsSolicitacaoDataChange
    Left = 176
    Top = 176
  end
  object QSolicitacao: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT DISTINCT'
      '  SOLICITACAO.*,'
      '  COTACAO_FORN.COT_FORNECEDOR,'
      '  COT_FORNECEDOR_DESC'
      'FROM'
      '  SOLICITACAO'
      
        '  INNER JOIN COTACAO_FORN ON (COTACAO_FORN.COT_SOLICITACAO = SOL' +
        'ICITACAO.SOL_CODIGO)'
      
        '                                                    AND(COD_DATA' +
        ' >= CURRENT_TIMESTAMP -30)')
    Left = 176
    Top = 216
  end
  object dspSolicitacao: TDataSetProvider
    DataSet = QSolicitacao
    Constraints = True
    Left = 176
    Top = 256
  end
  object cdsSolicitacao: TClientDataSet
    Active = True
    Aggregates = <>
    Filter = '(SOL_VALIDACAO = '#39'S'#39')'
    FilterOptions = [foCaseInsensitive]
    Params = <>
    ProviderName = 'dspSolicitacao'
    AfterOpen = cdsSolicitacaoAfterOpen
    Left = 176
    Top = 296
    object cdsSolicitacaoSOL_CODIGO: TIntegerField
      DisplayLabel = 'Solicita'#231#227'o'
      FieldName = 'SOL_CODIGO'
    end
    object cdsSolicitacaoSOL_DATA: TDateTimeField
      DisplayLabel = 'Data'
      FieldName = 'SOL_DATA'
    end
    object cdsSolicitacaoSOL_SOLICITANTE: TIntegerField
      FieldName = 'SOL_SOLICITANTE'
    end
    object cdsSolicitacaoSOL_CENTROCUSTO: TIntegerField
      FieldName = 'SOL_CENTROCUSTO'
    end
    object cdsSolicitacaoSOL_MOTIVO: TIntegerField
      FieldName = 'SOL_MOTIVO'
    end
    object cdsSolicitacaoSOL_TIPO: TStringField
      FieldName = 'SOL_TIPO'
      FixedChar = True
      Size = 1
    end
    object cdsSolicitacaoSOL_ORIGEM: TStringField
      FieldName = 'SOL_ORIGEM'
      FixedChar = True
      Size = 1
    end
    object cdsSolicitacaoUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsSolicitacaoUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsSolicitacaoUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsSolicitacaoDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsSolicitacaoDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsSolicitacaoDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsSolicitacaoEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsSolicitacaoSOL_SOLICITANTE_DESC: TStringField
      DisplayLabel = 'Solicitante'
      DisplayWidth = 30
      FieldName = 'SOL_SOLICITANTE_DESC'
      Size = 40
    end
    object cdsSolicitacaoSOL_CENTROCUSTO_DESC: TStringField
      DisplayLabel = 'Centro de Custo'
      DisplayWidth = 30
      FieldName = 'SOL_CENTROCUSTO_DESC'
      Size = 60
    end
    object cdsSolicitacaoSOL_MOTIVO_DESC: TStringField
      DisplayLabel = 'Motivo'
      DisplayWidth = 30
      FieldName = 'SOL_MOTIVO_DESC'
      Size = 40
    end
    object cdsSolicitacaoCOT_FORNECEDOR: TIntegerField
      FieldName = 'COT_FORNECEDOR'
    end
    object cdsSolicitacaoCOT_FORNECEDOR_DESC: TStringField
      DisplayLabel = 'Fornecedor'
      FieldName = 'COT_FORNECEDOR_DESC'
      Size = 40
    end
  end
  object cdsItensSolicitacao: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'ITENSSOL_SOL_CODIGO;ITENSSOL_PRODCODIGO'
    MasterFields = 'SOL_CODIGO'
    MasterSource = dsSolicitacao
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspItensSolicitacao'
    Left = 208
    Top = 296
    object cdsItensSolicitacaoITENSSOL_CODIGO: TIntegerField
      FieldName = 'ITENSSOL_CODIGO'
    end
    object cdsItensSolicitacaoITENSSOL_SOL_CODIGO: TIntegerField
      FieldName = 'ITENSSOL_SOL_CODIGO'
    end
    object cdsItensSolicitacaoITENSSOL_PRODCODIGO: TIntegerField
      FieldName = 'ITENSSOL_PRODCODIGO'
    end
    object cdsItensSolicitacaoFITENSSOL_QTD: TIntegerField
      FieldName = 'FITENSSOL_QTD'
    end
    object cdsItensSolicitacaoITENSSOL_PEDCODIGO: TIntegerField
      FieldName = 'ITENSSOL_PEDCODIGO'
    end
    object cdsItensSolicitacaoITENSSOL_QTDPEDIDO: TIntegerField
      FieldName = 'ITENSSOL_QTDPEDIDO'
    end
    object cdsItensSolicitacaoITENSSOL_OBS: TStringField
      FieldName = 'ITENSSOL_OBS'
      Size = 100
    end
    object cdsItensSolicitacaoUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsItensSolicitacaoUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsItensSolicitacaoUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsItensSolicitacaoDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsItensSolicitacaoDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsItensSolicitacaoDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsItensSolicitacaoEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsItensSolicitacaoITENSSOL_PROD_DESC: TStringField
      FieldName = 'ITENSSOL_PROD_DESC'
      Size = 60
    end
    object cdsItensSolicitacaoPROD_MARCA: TStringField
      FieldName = 'PROD_MARCA'
    end
    object cdsItensSolicitacaoPROD_UNIDSAIDA: TStringField
      FieldName = 'PROD_UNIDSAIDA'
      Size = 5
    end
  end
  object dspItensSolicitacao: TDataSetProvider
    DataSet = QItensSolicitacao
    Constraints = True
    Left = 208
    Top = 256
  end
  object QItensSolicitacao: TQuery
    Active = True
    DatabaseName = 'base'
    DataSource = dsSolicitacao
    SQL.Strings = (
      'SELECT'
      '  ITENSSOLICITACAO.ITENSSOL_CODIGO,'
      '  ITENSSOLICITACAO.ITENSSOL_SOL_CODIGO,'
      '  ITENSSOLICITACAO.ITENSSOL_PRODCODIGO,'
      '  ITENSSOLICITACAO.FITENSSOL_QTD,'
      '  ITENSSOLICITACAO.ITENSSOL_PEDCODIGO,'
      '  ITENSSOLICITACAO.ITENSSOL_QTDPEDIDO,'
      '  ITENSSOLICITACAO.ITENSSOL_OBS,'
      '  ITENSSOLICITACAO.USUARIO_CADASTRO,'
      '  ITENSSOLICITACAO.USUARIO_AUTERACAO,'
      '  ITENSSOLICITACAO.USUARIO_EXCLUSAO,'
      '  ITENSSOLICITACAO.DATA_CADASTRO,'
      '  ITENSSOLICITACAO.DATA_EXCLUSAO,'
      '  ITENSSOLICITACAO.DATA_AUTERACAO,'
      '  ITENSSOLICITACAO.EXCLUIDO,'
      '  ITENSSOLICITACAO.ITENSSOL_PROD_DESC,'
      '  PRODUTO.PROD_MARCA,'
      '  PRODUTO.PROD_UNIDSAIDA'
      'FROM'
      '  ITENSSOLICITACAO'
      
        '  INNER JOIN PRODUTO ON (ITENSSOLICITACAO.ITENSSOL_PRODCODIGO = ' +
        'PRODUTO.PROD_CODIGO)'
      'WHERE'
      '  ITENSSOLICITACAO.ITENSSOL_SOL_CODIGO = :SOL_CODIGO')
    Left = 208
    Top = 216
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ITENSSOL_SOL_CODIGO'
        ParamType = ptUnknown
        Value = 10699
      end>
  end
  object dsItensSolicitacao: TDataSource
    AutoEdit = False
    DataSet = cdsItensSolicitacao
    Left = 208
    Top = 176
  end
  object dsFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 240
    Top = 176
  end
  object dsCamposPesquisa: TDataSource
    Left = 352
    Top = 88
  end
  object PopupMenu1: TPopupMenu
    Left = 344
    Top = 248
    object Selecionar1: TMenuItem
      Caption = 'Selecionar'
      OnClick = dbgPesquisaPadraDblClick
    end
    object Novo1: TMenuItem
      Caption = 'Novo'
      OnClick = BtnIncluirClick
    end
    object Excluir1: TMenuItem
      Caption = 'Excluir'
      OnClick = BtnExcluirClick
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 192
    Top = 328
    object Favorito1: TMenuItem
      Caption = 'Favorito'
      ShortCut = 120
      OnClick = Favorito1Click
    end
    object LocalizarProduto1: TMenuItem
      Caption = 'Localizar Produto'
      ShortCut = 16454
      OnClick = LocalizarProduto1Click
    end
    object Detalhe1: TMenuItem
      Caption = 'Detalhe'
      OnClick = Detalhe1Click
    end
  end
end
